home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 July / 07_02.iso / software / xq-xsetup / files / setup.exe / {app} / plugins / XQ Context Menu Options 4.xpL < prev    next >
Text File  |  2002-04-10  |  3KB  |  83 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="7"
  3. "COUNT"="3"
  4. "UIPATH 1"="Appearance\Files&Folders\Files"
  5. "UIPATH 2"="System\Advanced Performance Settings"
  6. "NAME"="Start High Priority Context Menu"
  7. "VERSION"="2.35"
  8. "LANGUAGE"="VBScript"
  9. ' "OSVERSION"="010101"
  10. "TEXT 1"="Do not add "Start high priority" command for EXE files"
  11. "TEXT 2"="Enable command on context menu for EXE files"
  12. "TEXT 3"="Enable command as default command for EXE files"
  13. "DESCRIPTION 1"="If "Start high priority" is enabled, the command "Start High Priority" will appear if you right-click a EXE file."
  14. "DESCRIPTION 2"="Selecting this command will force Windows to execute the currently selected file with maximum priority."
  15. "DESCRIPTION 3"="The third option will make this the default option for all EXE files. Use this with caution as you may adversely affect system speed and stability if you run too many programs with high priority."
  16. "AUTHOR"="Xteq Systems"
  17. "CONTACTURL"="http://www.xteq.com/"
  18. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  19. "COMMENT 1"="Found at http://snakefoot.homestead.com/files/tweak/winnt/tweak.html (Credits: www.ntfaq.com)" 
  20.  
  21.  
  22.  
  23.  
  24. Sub Plugin_Initialize 
  25.  s=RegReadValue("HKCR\exefile\Shell\XQSHP\Command\@")
  26.  t=RegReadValue("HKCR\exefile\Shell\@")
  27.  if Len(s)>0 then
  28.   Call SetUIElement(2,true)
  29.   if t="XQSHP" then
  30.    Call SetUIElement(3,true)
  31.   end if
  32.  else
  33.   Call SetUIElement(1,true)
  34.  end if 
  35. End Sub
  36.  
  37. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  38.  s=""
  39.  bW9x=false
  40.  
  41.  If GetWinVer=1 or GetWinVer=3 or GetWinVer=5 then
  42.     bW9x=true
  43.  else
  44.     bW9x=false
  45.  end if
  46.  
  47.  
  48.  if GetUIElement(2)=true then
  49.     if bW9x=true then
  50.        s=GetWinDir
  51.        s=s & "command.com /c start ""XQSHP"" /high ""%1"""
  52.     else
  53.        'Windows NT/2000
  54.        s=GetWinSysDir
  55.        s=s & "cmd.exe /c start ""XQSHP"" /high ""%1"""
  56.     end if
  57.  
  58.     Call RegWriteValue("HKCR\exefile\Shell\XQSHP\@","Start &High priority",1)
  59.     Call RegWriteValue("HKCR\exefile\Shell\XQSHP\Command\@",s,1)
  60.  
  61. ' START Neil's new code for the default action option
  62.     if GetUIElement(3)=true then
  63.      Call RegWriteValue("HKCR\exefile\Shell\@","XQSHP",1)
  64.     else
  65.      Call RegWriteValue("HKCR\exefile\Shell\@","open",1)
  66.     end if
  67. ' END
  68.  else 'Disable it!
  69.  
  70.     if RegPathExists("HKCR\exefile\Shell\XQSHP") then
  71.        Call RegDeletePath("HKCR\exefile\Shell\XQSHP\Command")
  72.        Call RegDeletePath("HKCR\exefile\Shell\XQSHP")
  73.     end if
  74.  
  75.  end if
  76.  
  77.  
  78.  
  79. End Sub
  80.  
  81. Sub Plugin_Terminate 
  82. End Sub
  83.